home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __interesting_stuff__ / i_love_lucy_trivia_game / card_9691.txt < prev    next >
Text File  |  1990-07-20  |  2KB  |  66 lines
  1. -- card: 9691 from stack: in
  2. -- bmap block id: 10431
  3. -- flags: 0000
  4. -- background id: 9359
  5. -- name: You're a fan!
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=405 top=259 right=332 bottom=480
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Click Me!
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the userLevel into saveLevel
  23.   set the userLevel to 3
  24.   if the userLevel < 3 then exit mouseUp
  25.   choose lasso tool
  26.   click at 442,290 with commandKey -- select the frog
  27.   play boing c e f g d c e f g c
  28.   set dragSpeed to 400
  29.   drag from 442,290 to 385,201
  30.   drag from 385,201 to 330,296
  31.   drag from 330,296 to 321,136
  32.   drag from 321,136 to 198,208
  33.   drag from 198,208 to 114,58
  34.   drag from 114,58 to 36,296
  35.   drag from 36,296 to 199,143
  36.   drag from 199,143 to 305,264
  37.   drag from 305,264 to 439,183
  38.   drag from 439,183 to 442,290
  39.   doMenu "Revert"
  40.   click at 1,1   -- remove the selection
  41.   choose browse tool
  42.   set the userLevel to saveLevel
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: 2000
  50. -- rect: left=13 top=290 right=335 bottom=66
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 1011 / 1011
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Home
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   visual venetian blinds slowly to white
  62.   visual zoom in
  63.   go home
  64. end mouseUp
  65.  
  66.